﻿Public Class frmImportNhaTuFileExcel
    Dim dt As DataTable = New DataTable()
    Private Sub ImportTừFileExcelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportTừFileExcelToolStripMenuItem.Click

        MessageBox.Show("Bạn phải tạo ra file .xls có cấu như trên hình, trước khi thực hiên nếu không quá trình Import sẽ bị lỗi")

        Dim SaveFileDialog1 As SaveFileDialog = New SaveFileDialog()
        SaveFileDialog1.Filter = "Export (*.xls)|*.xls"
        SaveFileDialog1.ShowDialog()
        Dim File_name As String = SaveFileDialog1.FileName

        ExcelProvider.file_name = File_name

        Try
            Dim sql As String = "Select * From [Sheet1$]"
            dt = ExcelProvider.DataAdapter(sql)
            dgvNha.DataSource = dt

        Catch ex As Exception
            MessageBox.Show("Lỗi")
        End Try
    End Sub

    Private Sub LưuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LưuToolStripMenuItem.Click
        Dim ma As String
        Try
            For i As Integer = 0 To dt.Rows.Count - 1
                Dim nha As NhaThueDTO = New NhaThueDTO()
                ma = dt.Rows(i)(0).ToString()
                nha.MoTa = dt.Rows(i)(1).ToString()
                nha.MaLoaiNha = Integer.Parse(dt.Rows(i)(2).ToString())
                nha.DienTich = Single.Parse(dt.Rows(i)(3).ToString())
                nha.Gia = Single.Parse(dt.Rows(i)(4).ToString())
                nha.CanOGhep = dt.Rows(i)(5).ToString()
                nha.NguoiLienHe = dt.Rows(i)(6).ToString()
                nha.DiaChi = dt.Rows(i)(7).ToString()
                nha.SoDienThoai = dt.Rows(i)(8).ToString()
                nha.Email = dt.Rows(i)(9).ToString()
                nha.NgayTiepNhan = Date.Parse(dt.Rows(i)(10).ToString())
                nha.MaTinhTrang = Integer.Parse(dt.Rows(i)(11).ToString())
                nha.MaCongTy = Integer.Parse(dt.Rows(i)(12).ToString())
                nha.NguoiDangTin = dt.Rows(i)(13).ToString()

                NhaThueBUS.InsertNhaBUS(nha)

            Next
            MessageBox.Show("Insert xuống cơ sở dữ liệu thành công")
            dgvNha.DataSource = NhaThueBUS.GetAllNhaBUS()

        Catch ex As Exception


            MessageBox.Show("insert có lỗi từ dòng có mã: " & ma.ToString())
        End Try




    End Sub

    
End Class